ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 


**F ILE**1D**SHODEVCLU 


SSSSSSSS_ HH HH 000000 DDDDDDDD EEEEEEEEEE vv vw ccecceece «LL uu 
SSSSSSSS HH HH 000000  DDDDDDDD _— EEEEEEEEEE VV w  CCCECCCe LL UU UU 
$$ HH HH dD EE vv w CC LL UU UU 
S$ HH HH dD DD EE vv w CC LL UU UU 
SS HH HH 00 00 DD DD EE WwW w CC LL UU UU 
$$ HH HH 00 00 DD OD EE vv w CC LL UU UU 
SSSSSS_ HHHHHHHHHH 00 00 DD DD EEEEEEEE vv w CC LL UU UU 
SSSSSS__ HHHHHHHHHH 00 00 DD DD EEEEEEEE VV w CC LL UU UU 
SS HH HH 00 00 DD DD EE WwW w CC LL UU UU 
SS HH HH 00 00 DD DD EE wW w CC LL UU UU 
SS HH HH 00 00 0D DD EE ww ¢¢ LL UU UU aren 
SS HH HH 00 00 DD DD EE wow  ¢¢ LL UU UU prem 
SSSSSSSS_ HH HH 000000 DDDDDDDD _—«EEEEEEEEEE Ww CCCCCCCC «CLELLLLLLLL §=UuuuUUUUUU ouaa 
SSSSSSSS_ HH HH 000000  DDDDDDDD  EEEEEEEEEE Ww €CCCCCCE LLELLLLLLEL §uuuuUUUUUU apa 
LL INI SSSSSSSS 
LL HII SSSSSSSS 
LL Il $$ 
LL 1] SS : 
LL I] SS 
LL I] $$ ' 
LL 1] SSSSSS 
LL 1] SSSSSS 
LL II $$ 
LL 1] SS 
LL I] SS 
LL II $$ 
SLLLLLLLLL © sTIIII «© SSSSSSSS 
CLELLLLLLKE «=O STII) = SSSSSSSS 


a 


iE-seortges 1:34:5) yatatt BLing=sz ve.0n7eg Page 
MODULE shodevclu (IDENT = 


*v04-000' 
ADDRESSING_MODE (EXTERNAL = GENERAL)) = 


| 
c 


BEGIN 
; 
i eeeenucenccenceenenceceneenscarerereseererseeereennneenneenentneneenneetes 
‘@ 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
! ie ALL RIGHTS RESERVED. 
1 1 ie THIS SOFTWARE Is FURNI SHED UNDER A LICENSE AND MAY BE USED AND COPIED 
1 1 ie ONLY IN ACCOR ANCE WITH THE TERM $ OF SUCH LICENSE AND with THE 
1 1 ie INCLUSION OF TH NE ABO VE COPYRIGHT NOTICE. THIS sort ARE OR OTHER 
1 i is COPIES TH HEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
1 1 ie TRANSFER 
1 1 'e 


'@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:. compokatite. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
| eonsdeoeseanaserenseneuneenseneeoseenenqqeensonndedeadesenbakedenseaneesens 


* 
* 

* 

* 

* 

® 

® 

+ 

9 * 
* 

Seckaeee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY : 
a 

é 

* 

« 

* 

“ 

* 

* 

* 

® 


Sa 
oe 


FACILITY: SHOW utility 


ABSTRACT: 
This module contains the routines for finding cluster-wide 
information about devices by chasing through the lock structures. 


MBUN @OODNAUES WN S(O ODNOUES UNO OONOU EWN 


MEUM SO OONOVUEWN “OOONOUS 


SSR SSNS 


hk ek a a 8 8 hb 8 tn ts ds a st tt 8 4) 8D 
- 
o 


i 
! 
! 
! 
$ 
$ 
§ 
! 
! 
$ 
:) ' ENVIRONMENT: 
re ? : VAX native, user mode. 
4¢ | 2 ; AUTHOR: CW Hobbs CREATION DATE: 19-Mar-1984 
4 4 MODIFIED BY: 
46 ; 3 i v03-005 CuH8005 W Hobbs 4-May-1984 
4 : Exclude all null locks * ad consideration, since the are 
48 3 : due to other SHOW DEVICE commands rather than something 
$3 : : interesting. 
1 3} i V03-004 CWwH3004 Cw Hobbs 13-Apr-1984 
g ¢ : Remove declaration for a debugging routine. 
4 3 i v03-003 CWH3003 Cw Hobbs 13-Apr-1984 
5 55 ! onge name for LKISL_REMSYSTEM to LKISL_REMSYSID a “i kIS8. STATE 
$ $ - LKISB_QUEUE becausé the definitions changed. 


—_—  - —--- Or " —— 


8 
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v03-002 CwH3002 CW Hobbs m1 Pd pg 
Complete work now that a full service SGETLKI is available 


WE-fenrt9be O4:B4:$) YaNNt BL ing=52 40-762, 


5 i Include files 
LIBRARY 'SYSSLIBRARY: 418"; } VAX/VMS a yp B detiquecens 

§ REQUIRE ‘SRC$:SHOWD ! SHOW common d 

REQUIRE *SRC$:SHODEVDEF'; i SHOW DEVICES common definitions 

7 : 

o Table of contents 

5 FORWARD reluste 

7 scan Sek ints. locks : NOVALUE, ! User-mode jacke 

7 get_ ! Kernel routine. to follow locks for device 

a get_ t feck. info. handler; ! Handler to keep get_lock_info out of trouble 
EXTERNAL TI 


NE 
showSwrite_line; 


EXTERNAL LITERAL 
show$_lockerr; ! Error chasing locks 


EXT 
“Tegal nex aetit REF VECT a LONG], 
kernel “accvio. : VECTOR (4, LONG); 


ee ee ee me me ee ee ee ee em em ee a a a ed od od od = = 


91 ! 
3§ i Define a structure for a local buffer used to pass various items from 
ez it the kernel-mode routine back to the user-mode routine 
95 MACRO 
4 icl_null_tkid = 0, 8. 33° 0%, ! Id of the null mode lock we declared 
§ 3 icl-lengths = 4, 0, 32,02, ' Lonqword containing both Lengths 
98 5 icl=ret STength = 4, 8. 16, 0 %, i Wor gengaining total length ey) items returned 
99 Hy] icl-itm_length = 6, 0, 15, 0 2, i Length of a sin ¢ lock item 
1 8 icl-eng_status = 3 B° + ¥ z, i Status from $ENQ for null Lock 
: 1 4 icl=val-block = 12, 0, 0, 0 2; i Value block for the resource 
1 § LITERAL 
In 3 et eles = 28; ! Total size 12 bytes + 16 byte value block 
1 9 ! 
199 94 i We would Like to be able to REQUIRE 'SHRLIB$:MOUDEF.832', but MOUDEF has a bunch of 
4 95 ! definitions which conflict with our own definitions. Therefore, we have a copy of the 
192 38 definitions which we need. 
Ht 38 Define fields within the device allocation lock value block. 
11 
114 MACRO 
115 § DC_FLAGS = 0,0,16,0 %, 
116 DC_NOTFIRST_MNT = 0,0,1,0 2, 
11 DC_FOREIGN = 0,1,1,0 2, 
118 5 DC_GROUP = gel i, 
= e oe oe f 
11 DC" SYSTEM 1,0 % 
120 DC_WRITE = 0,4,1,0 2, 


=32 V4.0-74 
SHODEVCLU.B 


tet tute sre SsmoveveLu.682:1 


1986 12:08:25 


sep 
-Sep- 


; 
| 


5 Lu ep-1 134: AX=11 Bliss-32_v4.0-76 p | 
If: sen tgte Mid9:3s Het rute SRE Sshookvetu.682;1 age (33) 
OBAL ROUTINE scan cluster locks (scratch : REF SBBLOCK, buffer : REF SBBLOCK) : NOVALUE = | 
1 | 
; This is @ user-mode jacket routine for the lock searches 
i Inputs | 
; SCRATCH = address of scratch data for this device 
! Outputs 
: SCRATCH = some values ‘‘adjusted’’ for cluster-wide information 
$ : BUFFER == cutout lock in Senet on, for now gets a vector gentaining 
: he CSIDs of the remote nodes. First longword is ne count 
: of the CSIDs, longword CSIDs start at second longword 
leoee 
; : local_csid : INITIAL (0); ! The CSID of the local node 
5 LOCAL 
: status, 
Lclbuf : see. oer t $005.7" ! Buffer to receive misc items from kernel call 
5 lokbuf : ! Lock info buffer for kernel routines (set to MAXBUF minimu 
D5 arglist : ertar tial ! CMKRNL and output argument List 


Ree7 csid_count = buffer(0, ' Treat first longword as the Length field 
45 $ 
Ree : Zero the csid count field in the users buffer, and remember the local state of the mount bit 


4 ésid coat = 0; 
054 scratch(d_v_ Local mount) = .$BBLOCKCscratch(d_l_devchar], dev$v_mnt]; 


' 
: Get the CSID of the local node if necessary 


BIND 
054 csid_vector = buffer 0,0 0,32 93 : VECTOR C, LONG), 
6,$2,6); i 
if .local_csid EQL 0 
ee ™ 


1 i = (syi$ maith csid*16 OR 4); 
aralise = loca 
TFonot ¢s = spctigce 3 


= 0; 
Status = $getsyi “ itmlstzarglist)) 


ENS IGNAL STOP (.status); 
END; 


: | 
| 
| 


oO 


: Call the kernel mode routine, since the device lock is a kernel lock 


et ee me ae ee a ea et ee kk ee ke ea ed ed ed ed ed 2d od od = = 


RSLS ISVSARASASSSLISS FENRIS SSNEULUN LS SSELSEGEEAS 


SOUOAE 


PPP AAPA AP AAAAAA MAMI 


srek foe i = 4; ! Four arguments 
§ arglist = ,scratch; ' Device scratch a ree 
0 arglist(2) = iclbuf; i Local buffer ter misc returns 


1$-sen-1964 04:34:8)  yaKatt BLiet=S2 ve.0o742 Page 6 


arglist ATION( Lokbuf); ! Buffer for SGETLKI to place 
= orgtisttad : = tokbor. : fst of lock item blocks 
4 
4 
4 
4 
4 
4& 
; 
; 


[nd 
c 


A, NOT (status = SCMKRNL(ROUTIN = get_lock_info, ARGLST = arglist)) 


~NO 


~~ 


HEN SI SG tone 
ernél_accviol kernel *aceviol32, 0) 
LSE! SIGNAL (GhouS, lockerr, t _devi ceJ, .status); 
END; 


GIN 
TF -Sstatus EQL sr accvio 
Tockerr, sserorcete, b. gd scraschté.. sts 3f8 {ce}. -Status, 
4, kernel ott «kernel ofS’ re) i, ‘ 
° sseratchta, * ‘doviend, scratchid_ 


+ ed de ee te te te 


—_ 
VENUS CONAAR UI BOSR LEAF LO Oe OR ODO 


ww 


If there are any remote nodes represented, then update the device scratch area and pass the CSID 
back to the caller. 


' 

i 

i 

i 

incr k FROM O TO .iclbufClcl_ret_length]-1 BY LkiSk_length 
BEGIN 

iki = lokbuf{.k,0,32,0] : SBBLOCK; 


8 
$ 
: Only look at non-null locks owned by remote nodes. 
1 
I 


OOo 


wn 


null locks = not interesting, most Likely just other show device commands 
local locks - we can find far more info from the ucb than from the lock 


if .LkiClki$l_remsysid) NEQ .local_csid 
7 LhiClkiSb_graoded NEQ ick$k_nlmode 
BEGIN 
t = .csid_coun the count of s 


estas acute eet eec unt ee Ti acueist sid): Bae dy PA * 
Cc vector..c oun —rems : oO e nto e ~ & or 
dF, SOBLOCK ictiget i‘ : i Tf a 


tcl “vet block dc_fotfirst mnt) ! If mounted on the remote node 


BEGIN 
scratch(d_v_ te_mounts]) = 1; 
S$BBLOCK sratch d . devchar], i ant) - i Force the MNT bit 
scratc acount = .scratchld w =nco + 1; Bump the mount co 
SBBLOCK stretch d_lid venerd efeysy ! Set the foreign eit. if mounted foreign 
BLO ¢Lbut te aval _block],.de_ fore! 
SBBLOCK(scratch{d_l -Geve Locke tcl v_swl)- ‘Set he write-locked bit 
T .$BBLOCK LEibutlicl val _block] dc_wr 
ue -scratch(d_v_ al mount] if not mounted Locally, then set 
name 


Remember that it is mounted elsewhere 
on 


2 ee 


ia 
CHSMOVE (12, UPLIT BYTE ("(remote mnt)'), scratch(d_ t oe Ra | 


ND 
IF Metis grmode) EQL Lck$k_exmode ! If lock mode is exclusive, then the 
N ! device is also allocated 


BESLOCK scratch(d_l sfeycner}. -dev$v_all] = 1; ' Force the ALL bit on 
scratch oy v_remoté_al ; 


Set flag for the print routines 
END; 


Se Se Se Se Se Se Se BE Se Se Se Se Se Se Se Ge Se Se FHSS Se Ge Se Fe Se Ge Se Ge Se Ge Ge Se Ge Se Se Se Se Se Se Se Se oe SH Ss Se Se Se Ss Ge Se Se Se Ge SH Se Se es 


NOUN OO OOVNO US wn 0 OC 


POPPA AOA AAA AA AAA OO CCOOCOCOCOOCC 
ROPIPONMOPONINNY — OO OO Ot st oe 


Te ieee eae | 
1eo$ep-19be 92:09:23 — EetTuTL “See Ssnookvetu-082:1 row? is} | 


: 


i itionall ile s gebuag! code. If compiled —, -\ papemfietn; then if the 
i (ootest none” sipusDEsUE "4s de f 4 by B oti dump the lock 


tr EVARIANT NEQ 0 


1 
If the Logical name SHOWSDEBUG is defined, dump everything we found 
if (BEGIN 
OR £256, BY Byte), 
idl 


| 

| 

i 

cl_buf | 
ognanstascio *SHOWSDEBUG’, rsllen=out_dsc, rslbuf=sout_dsc) EQL ss$_normal) 

| 


POPPIN INI: SY S~ S~ E> S~ S~ 


 W ce o« 


out_ 
out wase" |: 
re ( 


¢ 
¢ 
+ 
¢ 
¢ 
6 
¢ 
¢ 
16 36 
y: 
+ 
¢ 
+ 
¢ 
+ 
¢ 
+ 
¢ 
r. 


BEGIN 
x: NOT .iclbufficl_eng_status) 


"slonat showS_lockerr, 2, _Scratch(d_p foviens gorecettd.t.Govseet« oheibulict eng status); 
show ty line TZASCID Lock !XL, _tenase ong $enq status !XL, valde block !xi ‘xt 


bufClo 0 0}): 
showSwrite_line (ZASC ted on eaeae \AF*’ arglist); 
showSwrite-line (ZAS - Lock id PID tsip Remikid Remcsid 


); 
a k from 0 to .lc \ret_length)-1 by LkiSk_length 
begin 


local 
ore nodenene : VECTOR C1 ig BYTE) 
nodename2 : VECTOR L é, eyted; 


ki lokbuf k oF 32 lock’ | qomeees 
arglist » UkiCtk tt 
arglist CRICK ISL ia: 

get ki icsys dj; 


s} = cterrtels L_remlki 


aunt LkiSt “fens adai: 


ort ice ° elk 

stl! , -f 
IF tt Lk $i sysid] NEQ 
THEN 


Se Se Ge Se Se Se Se Se Ge Se Se Go Se Se Se Se Se Ge Se Ge Se Ge Ge Ge Se Se Se Se Se Ge Se Se Ge Se SF Se Se Se Se Se Se Se Ge Ge Ge Se Ge Ge Ge Ge Ge Se Ge Ge GH Ge Ge 


L 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
Uv 
U 
Uv 
U 
U 
U 
U 
U 
U 
U 
u 
7 U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 


- “ites t: ve¢ TOR (4, LONG); 
ee § 5: iF = «sy $ _nodename* OR 16); 


= pravisees3; 


———$——  —  — — —— 


ee . , 


Lu dt nm - AX-11 Bliss-32 V4.0-7%4 P 8 
06 eageen ihe Pibsiss | Heeb ethessa seb eo ss. 1 oe «35 | 
tsyi (csidadr=lkiClki$t_sysid],itmist=itemlist); 
IF Rijn _remsysid) NEQ 0 


| 

te | 

i 

alts ist vecyon C4, “eed 

iteml +: ‘s il OR 16); | 

itemlis 
itenl ist aratist 

itemli | 


etsy! “Ei peoninnt _remsysid),itmistsitemlist); 


show Surite tine ( 


ZASCID ML IML OIML SB<CIAFDI> IKL IXL SB<CIAF)I> 'xB !XB 'xB", arglis 


U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 
U 07 ! 
¥ , Format the buffer, 32 bytes at a time 
U 07 shovSurite. Line (ZASCID ° = Formatted dump of LKIS_LOCKS buffer:", arglist); 
¥ 705 pee 8 from 0 to .iclbuf{icl_ret_length]-1 by 32 
: , begin 
4 , : Move the next chunk of data to the intermediate buffer 
U 071 argtistfo =, lokbuf{.k+28,0,32.0); 
U ng orotate =, lokbuf(.k+24,0,52,0); 
u 071 arglist § =. lokbuf(.k+20,0,32.0); 
U 0714 arglist(3J=.lokbufl.k+ g. 23e.03; 
U 0715 arglist(4J=. lokbuf{.k+1 3 
U Ti8 arglist(5J=. lokbuf ; 
U 071 arglist § =. lokbuf te 
U 071 arglistl7Jj= Sok okbufl.k,0.3e, (° 
U 071 arglist : =% 
U 07 arglist(9J=lokbufl.k,0,32,0); 
U 07. arglist(10J=.k; 
v 07 show rite, Line (ZASCID * = !8(9XL) !32AF !xu", arglist); 
U END; 
zFI ! End of variant for debug Listing 


CONAUE WP 


RETURN; 
END; 
IDENT \vO4=000\ 
-PSECT SPLITS,NOWRT ,NOEXE ,2 
29 76 6E 6D 20 65 74 6F 6D 65 72 28 00000 P.AAA: .ASCII \(remote mnt)\ : 
-PSECT SOWNS,NOEXE ,2 


00000000 00000 LOCAL_CSID: 
-LONG 0 3 


2 
4 
+ 
+o 

— 

. 
We 
7 OO. 
eee 


ae eee 
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‘ T 
fm pati 
“EX ete YI, $y¥$ 
<PSECT SCODES,NOWRT,2 


XID 
RNEL_ACCVIO 


ERNEL MA 
CMKRAL 


; 
Ss | 


-ENTRY SCAN_CL STER LOCKS, Save R2,R3,R4,R5,R6,R7,-; 0514 
RB_RO_RIO,RIT : 
ie MOVAB -1292(SP). SP : 
A MOVL FFER, R10 : 54 
CLRL + 054 
? MOVL SCRAT H, R7 + 054 
3 ji HOV g(R7), R9 : 
06 A 1 06 NSV RO, #6, #1, 4(R7) : 
206 astt , €ar_ésip ; 0554 
bE 000 MOVL  #282066948, ARGLIST : 0557 
04 AE 00 MOVAB LOCAL csiD. ARGLIST+4 : 0558 
00 CLRQ  ARGLIST+ + 0559 
000 CLRQ 2s (SP) : 0560 
00 CLRL 0s = (SP) : 
PUSHAB ARGLIST : 
CLRQ = =( SP) : 
CLRL 0s = (SP) : 
000000006 CALLS #7, SYSSGETSYI ; 
MOVL RO STATUS : 
BUSH stitus. . + 0562 
000000006 00 CALLS #1, LIBSSTOP ; 
6 MOVL #4, ARGLIST 3 0568 
AE MOVL 7, ARGLIST+4 : 0569 
8 AE MOVAB Lcte F, ARGLIST+ : 0570 
AE MOVZWL #1 ARGLIST+1 : 0571 
AE v OKBUF, ARGLIST+16 : 0572 
PUSHAB : T_LOCK_INFO ; 
000000006 CALLS #9.” SYSSCRKRNL ; 
MOVL R S F 
4 BLBS StAtUs, $ ; 
50 MOVAB &(R7), R ; 57 
0c cHPL qatus, #i2 : 057 
CLRL = = (SP) : 057 
7E MOVG KERNEL_ACCVJO+8, -(SP) 3 057 
7E mova KERNEL “A CvI0, (SP) : 
PUSHR #*M<RO>R2> 3; 0578 
7E MOVZBL 6(R7), =(SP) ; 
PUSHL @# ; 
PUSHL #SHOWS _LOCKERR : 
000000006 00 CALLS #10, LIBSSIGNAL ; 
RET : 
PUSHR #*M<RO,R2> + 0580 
7E MOV ZBL 6(R7), -(SP) ; 
PUSHL @ ; 


voe-b00- Aeect94e QB:34H31 YAGU SUES RBeta?SRe. 


000000006 8F DD 000E Pus ’ OCKERR 
000000006 00 os 0008 CALLS Be LTBSsiGnaL 
58 —8 AD 36 d9¢ b 3S: mOVZUL LCLBUF +4, R11 
58 ; ‘ d9¢ mec. #24, K 
56 40 AES 00001 48:  —- MOVAB uF CK] 
0000" CF os tit CPL XLOCAL ¢SID 
o A 000 TSTS 13¢R6) 
DOE BEQL 
A 000 INCL 0) 
50 AOD DOO MOVL it 
6A4 14 Ab 00 000 MOVL BcROS, apn 
34 £0 AD DOED BLBC Oa 
04 A7 8 a DOF Biseg i 
2 a9 8 D0F6 BIS 
00cc FA INCW 
5 FO AD 1 1 EF OO00F EXTZv #1, ay ‘nye. RO 
03 A 01 0 F0 INSV RO. &0. 
50 FO OAD 1 4 EF A EXTZ2V #4. #1. LCLBUF+12, RO 
0 0 D 1 MCOML §= RO, RO. 
” t i 6 £0 0011 EY Ree eta by egg ™ 
0088 08 0086" cr ; 1 MOVC3 #12, P.AAA, 184(R7) 
5 OD A 5$: CMPB 4 0s«13(R6), #5 
1 BNEQ 63 
02 Ag 80 8F B1S82 #128, 2(R9) 
A7 1 BISB2 #1, 5(R7) 
FF97 58 18 BF 6$: ACBL = RIA, #24, K, 4$ 
04 A RET 


3; Routine Size: 5315 bytes, Routine Base: SCODES + 0000 


Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Ge Se Se Ge Se Se Ge Ge Se Ge Se Ge Se Se Se Se Se Se Se Se SH SS Sse Se Se Ge Se Se Se Se SH Ss SE Se ae Ge 


wvvvvUU 


NNN NSN 


74 


DANA 
DWONAULSWN—O 


SNS NNN 


“ 
2S 


76 
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BEGIN 

Lame 

' 

! This routine is called in KERNEL e to scan the device lock data base and 
1 determine any cluster-wide information which is available. 

' Inputs 

: SCRATCH - address of scratch 7. for this device 

: Loxeue SIZE - $s ae f lock info 

! LOKBUF = lock info buffer for the SGETLKI call, passed in so that w 
: don't have kernel stack restrictions on the size of the buffer 
' Outputs 

: SCRATCH = some values ‘‘adjusted’’ for cluster-wide information 

: LCLBUF = output Lock information for control and debug Listings 
LOKBUF = Lock info vector 

leoe 


LOC 
“osb Bay * K £8). 


LOCK 
tokbut- len 58 OCK 
ae ! status block + value block 


YTEJ 
name dese ef fon By 2, LONG), 
status; 


] 

: Trap anything weird, and turn it into a return 
ENABLE 

get_lock_info_handler; 

t 

: Get a null-mode lock on the device name 


inamet03) = *SYSS$ s prefix on the name 
CHSMOVE ( retenta. b_devlen], yore ng t devicel”” name(4)); 

name_ escf =4+ Tstratch(d_ b_devlen 

name_desc = mane: 


status = SENQW (efn=0, 
tkmodest CKSK_ NLMODE, 
flags=(LCKSM NOQUEVE OR LCKSM_VALBLK OR LCKSM_SYNCSTS OR LCKSM_SYSTEM), 
reshanenane desc, 


bel buff let utt ted igs kane 0 3° } stick the null lock id into the buffer 
CHSMOVE ( BL8 53 clbut (o? _val -block}); Pa 2 the value block 
If .sta h.. e enqueue worked then check the stat block 
THEN $s atus = ,lksb£0,0,16,0); 
iclbuflicl_enq_statusi = .status; ! Save $enq status 
en status” 
If .status NEQ ss$_vainotvalid ! Cope with a value block not being valid 


GLOBAL ROUTINE get_lock_info (scratch : REF SBBLOCK, Iiclbuf : REF SBBLOCK, Lokbuf_size, lokbuf : 


rl 


SRLESRANL 


tS 


DOONAVLS WN $OOONOULS WO 


BEER EER AREER EERE PEEP EEE PEPE 


vuvuv 


N .status 


> > >>> >. 


Owo 
wie 


itemlist 

emlist 

tit tA 
itentist tie 6,88 


SDOOOCOCSOOCOOOOOOOOOOOOOOoOoOO 
SSSSSSIZI3 
Qaanaw 


status 
THEN status = 


Ste 


= “t 


cok 


stots” ; on ee lofond. 


lkida 
jeais 


Re pe ot peeeeene 0,32,0]); 


oebut piers 
15 LOCKS; 
ti len; 


dr=lksbl4, °° 32,0), 
bd 5 ra 


osb=ios 
LelbufClcl ye = lokbue. rest. 0,32,0); 
-iosb£0,0,16,0); 


80. 
80 ! 
oR Release the null lock 
$DEQ (Lkid=.lksb£4,0,32,0)); 
4 RETURN .status; 
081 END; 


5E 

60 

oc AE 

56 

50 

10 AE 08 A6é 
4 AE 

4 AE 

8 AE 
000000006 ? 
6 


66 


24535 


OOFC 

8 AE 9E 
98 F OD 
F OD 

8 AC 3 
6 A A 
06 €6 5A 
0 0 

OC AE 9E 
fe Fe 

fe fe 

1¢ AE OOF 
1D OD 

40 AE 9F 
C 

F 

D 

Dd 

Dd 


8 
16-Sep-1 
12-808} 


' Release 


98 12:08:35 


AX-11 B 
CLIUTL. 


he lock, just in 


i Return with status 


ome me momo ms 


Size of scratch buffer 


Find out which other locks 


Address of scratch buffer 
pderess ed A, + alam length 


End of i 


OsRed 


s$-32 V4. 


Page 1 
Shopeveru-682:1 aoe 15 


case one was granted 


Zero Fehon length (7? bogus when GETLKI works) 


! Save both Length fields 


! If the getlki worked then check the stat Slock 


' Return 


»EXTRN 
-EXTRN 


-ENTRY 
MOVAB 


with status 


SYSSENQW, SYSSDEQ 


SYSSGETLKI 
GET_LOCK_INFO, Save R2,R3.R4,R5,R6,R7 : 0729 
=BOtsP) SP : 

FP : 0730 
#66964¢131 NAME : 0768 
SCRATCH, RO > 0769 
ome gine) NAME 4 , 

6(R6) DESC : 0770 
Re, Be, NAME DEST ? 0771 
wep Bs : 0777 
(SP) 3 
NAME. DESC : 

#29 7 F 
LKSB ; 
=(SP) ; 
a! og ST SSENGU : 
F, pATye : 0778 


tKsBe4, (R6) 


ee ——————  —————————— 


Oc 8 A6 28 of 
08 ag 

000009F 0 F 

sh AE 

A AE 

AE 

AE 


000000006 99 
04 


000000006 00 
50 


7E 
0000v CF 


3; Routine Size: 205 bytes, 


Routine Base: 


i 


20 =A A 
1) 
E 
$13 G06 
028 SF 8B 
1 AC 3 7 
6E 7 
44 ae V4 
$e Be 
7E 4 9 
6 MF 
rH AE 9F Hy 
43 D4 00094 
fF 0096 
0 BB 9009p 
é5 0 900M 
48 AE C eral 
7E C Q0O0AB 
7E D4 OOOAD 
30 AE DD OOOAF 
4 FB 0008 
7 00 0008 
04 000BC 
0000 00080 
7E 04 OOOBF 
5E D 000C1 
04 ag D po oce 
0 fe 000C 
04 OO0CC 


SCODES + 0138 


m. - 
~Sep- 


18: 


2s: 


4$: 


1986 mol 


AX-11 Bliss- 


STATUS. & me 
ria aL size iste 


LOK bgt IST+ 
ITER ists ITEMLIST#8 


~tSp) 
1058 

ITEMLIST 
LKSB+4 

". SYSSGETLKI 
LOKBUF LEN. 4(R6) 
1088, Ss eraTus 
(SP) | 


LKSB+4 
#4, SYSS$DEQ 
STATUS, RO 


Save nothing 
=(SP) 


SP 
4(AP), =(SP) 
#3, GET. _LOCK_INFO_HANDLER 


=32 V4.0-7 
CLIUTL.SRC SHODEVELULB 231 


Be Ss Se Ge Ge Ge Ge Ge Ge Be Fe Se Se Ge Se Be Be Se Se Se Se Se Se Se Se Se Se Ge Fe Ge Ge Se Fe Fe Se Se 


ee ee See ee ee ee ee ee NE See TT ee ee a ee Re TIE a A I DEE 


9 
iB-Sep-1984 O1:84:5)  YANGIT OLing=82 y4.0—74g age IK 


ES <a 


; 2 at ROUTINE get_lock_info_handler (sig : REF BLOCKC,BYTEJ, mech : REF BLOCKE,BYTEJ) = 

: 2 :+¢ 

i 4 i FUNCTIONAL DESCRIPTION: 

3 2 This routine intercepts kernel mode signals and converts ACCVIOs to returns 

; 44 i INPUTS: 

i 2 ‘ ignal argument List 

; ! sig = signal argument Lis 

: ae ; eoth - methenion argument List 

i 445 i SIDE EFFECTS: 

3 46 ! A return is made to user mode code. | 

: 46 

: 450 EXTERNAL ROUTINE | 

: 2 1 LIBSSIG_TO_RET : ADDRESSING_MODE (GENERAL); 

3 ? If the signal name is an accvio, then clean up 

; 2 5 if «sia Cchf$l_sig_name] EQL ss$_accvio ! Is it an accvio? 

; 437 BEGIN 

; 4 CHSMOVE (424 sigtchf$t_sig_argt) kernel_accviol0)); 

> 45 RETURN LIBSSIG_TO_RET (Tsig .mech); ! Convert signal to return | 

3 rec END; 

: 46 ¢ RETURN ss$_resignal; | 

: 46 END; 
| 


-EXTRN LIBSSIG_TO_RET 


007¢ 900 .ENTRY GET_LOCK_INFO_HANDLER, Save R2.R3,R4,R5.R6 ; 0816 
56 04 Ac 06 000 MOVL > 0839 
0c 06 AG p 0006 CMPL 6s: & (RO), #12 F 
1 000A BNEG 1 : 
000000006 00 08 Ab 10 28 0000 MOVC3 #16, 8(R6), KERNEL_ACCVIO : 0842 
08 AC DD 0001 PUSHL MECH > 084 
: DD 1 PUSHL Rg : 
000000006 00 FB 1A CALLS #2, LiB$S1G_TO_RET : 
50 0918 «8F a 03 1$ MOVZWL #2328, RO : 
4 80 5 RET > 084 


3; Routine Size: 40 bytes, Routine Base: S$CODE$ + 0208 


saat 


i 8 88:9 0 ELUoon 


Size: 560 sage + 16 data bytes 
Run Time: 00:22.9 
lapsed Time: 01:13.1 


Elaps 
Lines/CPU Min: 
Lexemes/CPU-Min: 57993 
et | Used: 161 pages 
Compilation Complete 


rSeseoct9ge 0):54:5) yauctt otis 


-EXTRN LIBSSIGNAL, LIBSSTOP 


shove 


40-74 
VCLU.B 


$251 


: PSECT SUMMARY 

3 Name Bytes Attributes 

;  SOWNS 4 NOVEC, WRT, RD ,NOEXE.NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 rg SD 1 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; CODES 5 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 

; soweee== Symbols -<------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

3 .$255$DUA28:C(SYSLIBILIB.L32;1 18619 40 0 1000 00:01.9 

H COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:SHODEVCLU/OBJ=0BJ$:SHODEVCLU MSRC$:SHODEVCLU/UPDATE=(ENHS$: SHODEVCLU) 
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